home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / binutils.7 / binutils / binutils-2.7 / gas / testsuite / gasp / sfunc.asm < prev    next >
Encoding:
Assembly Source File  |  1996-07-04  |  312 b   |  27 lines
  1.  
  2.     .MACRO    RESERVE_STR P1=0 P2
  3.     .SDATA    .SUBSTR("ABCDEFG",\P1,\P2)
  4.     .ENDM
  5.  
  6.     RESERVE_STR    2,2
  7.     RESERVE_STR    ,3
  8.  
  9.  
  10.     .MACRO FIND_STR P1
  11.     .DATA.W    .INSTR("ABCDEFG","\P1", 0)
  12.     .ENDM
  13.  
  14.     FIND_STR    CDE
  15.     FIND_STR    H
  16.  
  17.     .MACRO    RESERVE_LENGTH P1
  18.     .ALIGN    4
  19.     .SRES    .LEN("\P1")
  20.     .ENDM
  21.  
  22.     RESERVE_LENGTH    ABCDEF
  23.     RESERVE_LENGTH    ABC
  24.  
  25.     .END
  26.  
  27.